home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 1.iso / pc / data / shared.dir / 00863.ls < prev    next >
Encoding:
Text File  |  1996-09-06  |  341 b   |  12 lines
  1. on saveMyFile
  2.   global gMyPath, gMyText
  3.   set gSaveFile to FileIO(mnew, "write", gMyPath)
  4.   gSaveFile(mWriteString, gMyText)
  5.   gSaveFile(mdispose)
  6. end
  7.  
  8. on alertSave
  9.   global gMyFileName
  10.   alert("The Discovery Interactive document " & QUOTE & gMyFileName & QUOTE & " has been saved in your " & QUOTE & "SAVEFILE" & QUOTE & " directory.")
  11. end
  12.